home *** CD-ROM | disk | FTP | other *** search
- object MainForm: TMainForm
- Left = 197
- Top = 123
- Width = 435
- Height = 300
- ActiveControl = SpeedPanel
- Caption = 'My Project 2'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Menu = LogoAppMenu
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 16
- object SpeedPanel: TPanel
- Left = 0
- Top = 0
- Width = 427
- Height = 30
- Align = alTop
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- object OpenBtn: TSpeedButton
- Left = 10
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Open'
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 333FFFFFFFFFFFFFF3333380000000000000333333888888888888883F333300
- 7B7B7B7B7B7B033333883F33333333338F33330F07B7B7B7B7B70333338F8F33
- 3333333383F3330B0B7B7B7B7B7B7033338F83F33333333338F3330FB0B7B7B7
- B7B7B033338F38F333333333383F330BF07B7B7B7B7B7B03338F383FFFFF3333
- 338F330FBF000007B7B7B703338F33888883FFFFFF83330BFBFBFBF000000033
- 338F3333333888888833330FBFBFBFBFBFB03333338F333333333338F333330B
- FBFBFBFBFBF03333338F33333FFFFFF83333330FBFBF0000000333333387FFFF
- 8888888333333330000033333333333333388888333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333}
- NumGlyphs = 2
- OnClick = FileOpen
- end
- object SaveBtn: TSpeedButton
- Left = 34
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Save'
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333FFFFFFFFFFFFFF3333380000000000008333
- 333888F8FF888F888F333330CC08CCF770CC0333333888F8FF888F888F333330
- CC08CCF770CC0333333888F888888F888F333330CC07887770CC03333338888F
- FFFFF8888F333330CC60000006CC033333388888888888888F333330CCCCCCCC
- CCCC033333388888888888888F333330C6000000006C03333338888888888888
- 8F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330C0FFFFFFFF0C0333
- 333888FFFFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F333330
- C0FFFFFFFF0C0333333888FFFFFFFF888F33333000FFFFFFFF000333333888FF
- FFFFFF888F333330C0FFFFFFFF0C0333333888FFFFFFFF888F33333800000000
- 0000833333388888888888888333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333}
- NumGlyphs = 2
- OnClick = FileSave
- end
- object ExitBtn: TSpeedButton
- Left = 98
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Exit'
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00377777777777
- 777777773FFFFFFFFFFFF333333F888888888888F7F7F7888888888888883333
- 33888888888888877F7F788888888888888F333FF88844444400888FFF444444
- 88888888888333888883333334D5007FFF433333333338F888F3338F33333333
- 345D50FFFF4333333333388788F3338F3333333334D5D0FFFF433333333338F8
- 78F3338F33333333345D50FEFE4333333333388788F3338F3333333334D5D0FF
- FF433333333338F878F3338F33333333345D50FEFE4333333333388788F3338F
- 3333333334D5D0FFFF433333333338F878F3338F33333333345D50FEFE433333
- 3333388788F3338F3333333334D5D0EFEF433333333338F878F3338F33333333
- 345D50FEFE4333333333388788F3338F3333333334D5D0EFEF433333333338F8
- F8FFFF8F33333333344444444443333333333888888888833333333333333333
- 3333333333333333FFFFFF333333333333300000033333333333333888888F33
- 333333333330AAAA0333333333333338FFFF8F33333333333330000003333333
- 33333338888883333333}
- NumGlyphs = 2
- OnClick = FileExit
- end
- object SendBtn: TSpeedButton
- Left = 66
- Top = 3
- Width = 25
- Height = 25
- Hint = 'Send'
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000028000000140000000100
- 0400000000009001000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3300000000000003333333FFFFFFFFFFFFF33333388888888888880333333888
- 8888888888F3300008B7B7B7B7B7B803388888F333333333F8F33333380B7B7B
- 7B7B080333FFF88F333F333F88F3300008B0B7B0B7B0B80338888838F3F8F3F8
- 38F3333338FB0B0B0B0B780333FFF8338F838F8338F3300008B7B0B7B0B7B803
- 38888833F83338F338F3333338FB0B7B7B0B780333FFF83F8333338F38F33000
- 08B0B7B7B7B0B803388888F833333338F8F33333380BFBFBFBFB080333333883
- 3333333388F33333388888888888883333333888888888888833333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 3333333333333333333333333333333333333333333333333333333333333333
- 33333333333333333333}
- NumGlyphs = 2
- OnClick = FileSend
- end
- end
- object StatusBar: TStatusBar
- Left = 0
- Top = 233
- Width = 427
- Height = 19
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Panels = <>
- ParentFont = False
- SimplePanel = True
- end
- object RichEdit1: TRichEdit
- Left = 0
- Top = 30
- Width = 427
- Height = 203
- Align = alClient
- TabOrder = 2
- end
- object LogoAppMenu: TMainMenu
- Left = 335
- Top = 30
- object FileMenu: TMenuItem
- Caption = '&File'
- object FileNewItem: TMenuItem
- Caption = '&New'
- Hint = 'Create a new file'
- OnClick = FileNew
- end
- object FileOpenItem: TMenuItem
- Caption = '&Open...'
- Hint = 'Open a file'
- OnClick = FileOpen
- end
- object FileSaveItem: TMenuItem
- Caption = '&Save'
- Hint = 'Save current file'
- OnClick = FileSave
- end
- object FileSaveAsItem: TMenuItem
- Caption = 'Save &As...'
- Hint = 'Save current file with different name'
- OnClick = FileSaveAs
- end
- object N2: TMenuItem
- Caption = '-'
- end
- object FileSendItem: TMenuItem
- Caption = 'Sen&d...'
- Hint = 'Send current file through electronic mail'
- OnClick = FileSend
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object FileExitItem: TMenuItem
- Caption = 'E&xit'
- Hint = 'Exit application'
- ShortCut = 32856
- OnClick = FileExit
- end
- end
- object Help1: TMenuItem
- Caption = '&Help'
- object AboutItem: TMenuItem
- Caption = '&About...'
- OnClick = About
- end
- end
- end
- object OpenDialog: TOpenDialog
- DefaultExt = 'rtf'
- Filter = 'All Files (*.*)|*.*'
- Left = 367
- Top = 30
- end
- object SaveDialog: TSaveDialog
- DefaultExt = 'rtf'
- Filter = 'All Files (*.*)|*.*'
- Left = 399
- Top = 30
- end
- end
-